home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / PMAKER65 / archive.z / GUIAS....SPT < prev    next >
Text File  |  1997-01-13  |  2KB  |  69 lines
  1. -- Object Guides 1.0
  2. -- Created 4 Oct 96, am
  3.  
  4. -- Este gui≤n crea o elimina guφas en los bordes 
  5. -- tal y como se especifique en el cuadro de dißlogo. 
  6.  
  7. //Get the info for the selected objects
  8. getselectidlisttop >> numberofobjects, objectinfo
  9. if numberofobjects = 0
  10.         message "Seleccione uno o mßs objetos de la pßgina."
  11.         return
  12. endif
  13.  
  14. getplatform => thisplatform
  15. if thisplatform = MACINTOSH
  16.     dialogbegin -80,-115,100,80,"Eliminar guφas del objeto"
  17.         static 10, 10, 150, 30, "Eliminar guφas de:"
  18.         checkbox 10, 40, 90, 60, "Arriba", 1
  19.         checkbox 10, 70, 90, 90, "Abajo", 1
  20.         checkbox 10, 100, 90, 120, "Izquierda", 1
  21.         checkbox 10,130, 90, 150, "Derecha", 1
  22.         pushbutton 10,160,80,180,"OK"
  23.         pushbutton 90,160,160,180,"Cancelar"
  24.     dialogend => buttonHit, S1,Top, Bottom, Left, Right, ...
  25. else
  26.     dialogbegin -32,-46,55,32,"A±adir guφas del objeto"
  27.         static 4, 4, 60, 12, "Poner guφas:"
  28.         checkbox 4, 16, 32, 24, "Arriba", 1
  29.         checkbox 4, 26, 32, 36, "Abajo", 1
  30.         checkbox 4, 40, 42, 48, "Izquierda", 1
  31.         checkbox 4, 50, 42, 60, "Derecha", 1
  32.         pushbutton 4,64,42,74,"OK"
  33.         pushbutton 46,64,84,74,"Cancelar"
  34.     dialogend => buttonHit, S1,Top, Bottom, Left, Right, ...
  35. endif
  36.  
  37. if buttonHit="OK"
  38.  
  39.     redraw off
  40.  
  41.     //Put guides around each selected object
  42.     
  43.     loop i=0,numberofobjects-1
  44.         //Select the object
  45.         selectid (objectinfo((i*15)+1))
  46.     
  47.         //Get the bounding box of the selected object
  48.         getselectinfo >> bboxinfo
  49.     
  50.         //Create the guides
  51.         if Top = 1
  52.             try guidehoriz bboxinfo(2)
  53.         endif
  54.         if Left = 1
  55.             try guidevert bboxinfo(1)
  56.         endif
  57.         if Bottom = 1
  58.             try guidehoriz bboxinfo(4)
  59.         endif
  60.         if Right = 1
  61.             try guidevert bboxinfo(3)
  62.         endif
  63.     endloop
  64.     
  65.     deselect
  66.     redraw on
  67. endif
  68. return
  69.